0 PRINT"[147]";:POKE53280,.:POKE53281,.:POKE646,13:GOTO100
1 DATA " 1. [212]HIS LETTER BUZZES",B
2 DATA " 2. [217]OU CAN SAIL ON WHAT LETTER.",C
3 DATA " 3. [217]OU CAN DRINK WHAT LETTER.",T
4 DATA " 4. [212][214] PERFORMERS USE WHAT CARDS.",Q
5 DATA " 5. [201]F YOU BORROW, YOU WILL",O
6 DATA " 6. [217]OU SEE WITH WHAT LETTER.",I
7 DATA " 7. [217]OU CAN EAT WHAT LETTER                 (VEGETABLE),",P
8 DATA " 8. [215]HAT LETTER IS A TREE",U
9 DATA " 9. [215]HAT LETTER HAS CLONED YOU",W
10 DATA " 10. [215]HAT TWO LETTERS DESCRIBE A VACANT      HOUSE",MT
11 DATA " 11. [215]HAT TWO LETTERS ARE THE ANTONYM OF     DIFFICULT",EZ
12 DATA " 12. [215]HAT TWO LETTERS CRAWL UP THE           WALLS",IV
13 DATA " 13. [215]HAT TWO LETTERS TELL WHERE SOME       [160]INDIANS LIVE",TP
14 DATA " 14. [215]HAT TWO LETTERS ARE A SYNONYM FOR      JEALOUSY",NV
15 DATA " 15. [215]HAT THREE LETTERS MEAN ''YOU ARE       SEEN BY ME''",ICU
16 DATA " 16. [215]HAT LETTER IS A BLUE BIRD",J
20 FOR X=1TO16:READ Q$(X),A$(X):PRINTQ$(X)CHR$(63):NEXT
99 SAVE"@0:ALPHABET PUNS",8:END
100 T=16:DIMQ$(T),A$(T):PRINTCHR$(14)
110 DIMZ(16):FORX=1TO16:READQ$(X),A$(X):Z(X)=X:NEXT
120 FORX=1TO16:Z=INT(RND(1)*16+1):T=Z(X):Z(X)=Z(Z):Z(Z)=T:NEXT:T=16
199 IF T=0 THEN PRINT"[147][217]OU GOT THEM ALL!":GOSUB500:GOTO610
200 Z1=Z1+1:IFZ1=17THENZ1=1
201 Z=Z(Z1):IFQ$(Z)=""THEN200
202 GOSUB20000:PRINT"             [193][204][208][200][193][194][197][212][160][208][213][206][211][160][160][160][160][160][160][160][160][160][160][160][160][160]"
203 PRINT"[154][215]ORLD [194]OOK [195]OMPLETE - [215][207][210][196] [208][207][215][197][210], PG.119"
204 PRINT"[198]IND THE ALPHABET LETTER THAT EACH"
205 PRINT"SENTENCE SUGGESTS.                      "
206 FORL=1TO40:PRINT"[164]";:NEXT:PRINT"[153]"
207 PRINTTAB(40)Q$(Z)CHR$(63):PRINT:INPUTG$:IFG$="QUIT"THEN600
208 IF G$=A$(Z)THENGOSUB400:GOTO 210
209 PRINT"[158][206][207]! [212]HATS WRONG!":GOSUB300:PRINT"[212]HE ANSWER IS "A$(Z)
210 PRINT"[208]RESS ANY KEY FOR NEXT WORD.[153]"
211 GET ANY$:IFANY$=""THEN 211
212 GOTO199
300 FORX=54272TO54295:POKEX,0:NEXT:POKE54296,15
305 POKE54277,45:POKE54272,20:POKE54273,5:POKE54276,33
310 FORD=1TO150:NEXT:POKE54276,32:FORD=1TO30:NEXT
315 FORX=54272TO54295:POKEX,0:NEXT:RETURN
400 PRINT"[155][217][197][211]! [212]HATS RIGHT!!!":Q$(Z)="":A$(Z)="":T=T-1
402 S=54272:FOR L=S TO S+24:POKEL,0:NEXT:POKES+24,15:REM DING
405 S=54272:POKES+1,50:POKES+5,9:POKES+15,30:POKES+4,17:FORSS=1TO1200
410 NEXT:POKES+4,16
415 S=54272:FOR L=S TO S+24:POKEL,0:RETURN
500 S=54272:FOR L=S TO S+24:POKEL,0:NEXT:POKES+24,15:REM DING
505 T=87:N$="251331421502421502"
510 POKES+6,96:POKES+24,15
515 FORI=1TO18STEP3
520 POKES+1,VAL(MID$(N$,I,2)):POKES+4,33
525 FORJ=1TOT*VAL(MID$(N$,I+2,1)):NEXT
530 POKES+4,0:NEXT
535 S=54272:FOR L=S TO S+24:POKEL,0:RETURN
600 PRINT"[147][196]O YOU WANT TO QUIT? ([217]/[206])
602 [151]198,0:[146]198,1:[161]ANY$:[139]ANY$[178]"N"[167]199
610 [137]40000
10000 D[178][194](186):N$[178]"ALPHABET PUNS":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
20000 [153]"LOAD":[151]214,23:[153]:[153][163]10)"DEF'QUIT' TO VALXIT";:[142]
40000 [129]I[178]0[164]21:[151]828[170]I,8[170]I:[130]
40010 [139]DV[179]8[176]DV[177]29[176]DV[178]8[167]40030
40020 A[178][194](828):B[178][194](828[170]DV[171]8):[151]828,B:[151]828[170]DV[171]8,A
40030 A$[178]"HELLO CONNECT":[129]J[178]8[164]29:I[178][194](828[170]J[171]8):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[153]"LOAD":[151]53272,23:[151]186,8:[128]
40070 Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]